home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1994 September / PSL Monthly Shareware CD-ROM (September 1994).ISO / dos / communic / vote291.exe / VOTEGRAF.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-05-25  |  6KB  |  261 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  TINTEGER001(16)
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     Integer  INTEGER010
  29.     Integer  INTEGER011
  30.     Integer  INTEGER012
  31.     Integer  INTEGER013
  32.     String   STRING001
  33.     String   TSTRING002(7)
  34.     String   TSTRING003(16)
  35.     String   STRING004
  36.     String   STRING005
  37.     String   STRING006
  38.     String   STRING007
  39.     String   TSTRING008(16)
  40.     String   STRING009
  41.     String   STRING010
  42.  
  43. ;------------------------------------------------------------------------------
  44.  
  45.     FOpen 1, PPEPath() + "vote.CFG", 0, 0
  46.     For INTEGER010 = 1 To 7
  47.         FGet 1, TSTRING002(INTEGER010)
  48.         TSTRING002(INTEGER010) = RTrim(Left(TSTRING002(INTEGER010), 29), " ")
  49.     Next
  50.     FClose 1
  51.     For INTEGER013 = 1 To TSTRING002(1)
  52.         STRING010 = INTEGER013
  53.         STRING009 = PPEPath() + "vote" + STRING010 + ".ans"
  54.         If (Exist(STRING009)) Continue
  55.         FCreate 1, STRING009, 1, 0
  56.         FClose 1
  57.     Next
  58.     PrintLn "@X10┌─────────────────────────────────────────────────────────────────────────────@X19┐@X0F"
  59.     PrintLn "@X10│··@X1EVoter++@X10······@X1AInitializing @X1EVoter++@X1A Bulletin Generator@X10··@X1A-@X10··@X1APlease wait....@X10···@X19│@X0F"
  60.     PrintLn "@X10└@X19─────────────────────────────────────────────────────────────────────────────┘@X0F"
  61.     Delete TSTRING002(7)
  62.     INTEGER012 = 6
  63.     For INTEGER011 = 1 To TSTRING002(1)
  64.         Inc INTEGER012
  65.         STRING001 = INTEGER011
  66.         FOpen 4, TSTRING002(INTEGER012), 1, 0
  67.         FDefOut 4
  68.         INTEGER004 = 0
  69.         INTEGER005 = 0
  70.         INTEGER006 = 0
  71.         INTEGER010 = 0
  72.         INTEGER002 = 0
  73.         INTEGER005 = 0
  74.         INTEGER006 = 0
  75.         INTEGER007 = 1
  76.         FOpen 5, PPEPath() + "vote" + STRING001 + ".ans", 0, 0
  77.         :LABEL001
  78.         If (Ferr(5)) Goto LABEL002
  79.         Inc INTEGER005
  80.         FGet 5, STRING007
  81.         Goto LABEL001
  82.         :LABEL002
  83.         FClose 5
  84.         INTEGER005 = INTEGER005 - 1
  85.         STRING004 = PPEPath() + "vote" + STRING001 + ".ans"
  86.         STRING005 = PPEPath() + "vote" + STRING001 + ".que"
  87.         STRING006 = ReadLine(STRING005, 1)
  88.         FOpen 2, STRING005, 0, 0
  89.         :LABEL003
  90.         If (Ferr(2)) Goto LABEL004
  91.         Inc INTEGER006
  92.         FGet 2, TSTRING008(INTEGER006)
  93.         TSTRING008(INTEGER006) = Left(TSTRING008(INTEGER006), 49)
  94.         Goto LABEL003
  95.         :LABEL004
  96.         FClose 2
  97.         FOpen 4, TSTRING002(7), 1, 0
  98.         FDefOut 4
  99.         FDPut "@CLS@"
  100.         FDPutLn "@X04Q#@X09 ", INTEGER011, "@X04:@X0A ", STRING006
  101.         FDPutLn 
  102.         FDPutLn "@X0EPossible Answers:                                    @X0C0    25   50   75  100"
  103.         FDPutLn "                                                     @X04├┬┬┬┬┼┬┬┬┬┼┬┬┬┬┼┬┬┬┬┤@X0E"
  104.         For INTEGER003 = 1 To INTEGER005
  105.             If (INTEGER003 > 16) Break
  106.             TINTEGER001(INTEGER003) = ReadLine(STRING004, INTEGER003)
  107.             INTEGER004 = INTEGER004 + TINTEGER001(INTEGER003)
  108.             If (TINTEGER001(INTEGER003) == "") TINTEGER001(INTEGER003) = "0"
  109.             Inc INTEGER002
  110.         Next
  111.         For INTEGER003 = 1 To INTEGER002
  112.             If (INTEGER003 > 16) Goto LABEL005
  113.             If (INTEGER003 > INTEGER002) Goto LABEL005
  114.             TINTEGER001(INTEGER003) = (TINTEGER001(INTEGER003) * 100) / INTEGER004
  115.             :LABEL005
  116.             If (TINTEGER001(INTEGER003) == 0) Then
  117.                 TSTRING003(0) = "@X09■@X0A····················"
  118.                 Goto LABEL006
  119.             ElseIf (TINTEGER001(INTEGER003) <= 5) Then
  120.                 TSTRING003(0) = "@X09■@X0A■···················"
  121.                 Goto LABEL006
  122.             ElseIf (TINTEGER001(INTEGER003) <= 10) Then
  123.                 TSTRING003(0) = "@X09■@X0A■■··················"
  124.                 Goto LABEL006
  125.             ElseIf (TINTEGER001(INTEGER003) <= 15) Then
  126.                 TSTRING003(0) = "@X09■@X0A■■■·················"
  127.                 Goto LABEL006
  128.             ElseIf (TINTEGER001(INTEGER003) <= 20) Then
  129.                 TSTRING003(0) = "@X09■@X0A■■■■················"
  130.                 Goto LABEL006
  131.             ElseIf (TINTEGER001(INTEGER003) <= 25) Then
  132.                 TSTRING003(0) = "@X09■@X0A■■■■■···············"
  133.                 Goto LABEL006
  134.             ElseIf (TINTEGER001(INTEGER003) <= 30) Then
  135.                 TSTRING003(0) = "@X09■@X0A■■■■■■··············"
  136.                 Goto LABEL006
  137.             ElseIf (TINTEGER001(INTEGER003) <= 35) Then
  138.                 TSTRING003(0) = "@X09■@X0A■■■■■■■·············"
  139.                 Goto LABEL006
  140.             ElseIf (TINTEGER001(INTEGER003) <= 40) Then
  141.                 TSTRING003(0) = "@X09■@X0A■■■■■■■■············"
  142.                 Goto LABEL006
  143.             ElseIf (TINTEGER001(INTEGER003) <= 45) Then
  144.                 TSTRING003(0) = "@X09■@X0A■■■■■■■■■···········"
  145.                 Goto LABEL006
  146.             ElseIf (TINTEGER001(INTEGER003) <= 50) Then
  147.                 TSTRING003(0) = "@X09■@X0A■■■■■■■■■■··········"
  148.                 Goto LABEL006
  149.             ElseIf (TINTEGER001(INTEGER003) <= 55) Then
  150.                 TSTRING003(0) = "@X09■@X0A■■■■■■■■■■■·········"
  151.                 Goto LABEL006
  152.             ElseIf (TINTEGER001(INTEGER003) <= 60) Then
  153.                 TSTRING003(0) = "@X09■@X0A■■■■■■■■■■■■········"
  154.                 Goto LABEL006
  155.             ElseIf (TINTEGER001(INTEGER003) <= 65) Then
  156.                 TSTRING003(0) = "@X09■@X0A■■■■■■■■■■■■■·······"
  157.                 Goto LABEL006
  158.             ElseIf (TINTEGER001(INTEGER003) <= 70) Then
  159.                 TSTRING003(0) = "@X09■@X0A■■■■■■■■■■■■■■······"
  160.                 Goto LABEL006
  161.             ElseIf (TINTEGER001(INTEGER003) <= 75) Then
  162.                 TSTRING003(0) = "@X09■@X0A■■■■■■■■■■■■■■■·····"
  163.                 Goto LABEL006
  164.             ElseIf (TINTEGER001(INTEGER003) <= 80) Then
  165.                 TSTRING003(0) = "@X09■@X0A■■■■■■■■■■■■■■■■····"
  166.                 Goto LABEL006
  167.             ElseIf (TINTEGER001(INTEGER003) <= 85) Then
  168.                 TSTRING003(0) = "@X09■@X0A■■■■■■■■■■■■■■■■■···"
  169.                 Goto LABEL006
  170.             ElseIf (TINTEGER001(INTEGER003) <= 90) Then
  171.                 TSTRING003(0) = "@X09■@X0A■■■■■■■■■■■■■■■■■■··"
  172.                 Goto LABEL006
  173.             ElseIf (TINTEGER001(INTEGER003) <= 95) Then
  174.                 TSTRING003(0) = "@X09■@X0A■■■■■■■■■■■■■■■■■■■·"
  175.                 Goto LABEL006
  176.             ElseIf (TINTEGER001(INTEGER003) <= 100) Then
  177.                 TSTRING003(0) = "@X0C■■■■■■■■■■■■■■■■■■■■@X0E■"
  178.                 Goto LABEL006
  179.             Endif
  180.             If (TINTEGER001(INTEGER003) >= 101) Then
  181.                 Goto LABEL005
  182.             Endif
  183.             :LABEL006
  184.             INTEGER007 = INTEGER007 + 1
  185.             INTEGER008 = Len(TSTRING008(INTEGER007))
  186.             INTEGER009 = 52 - INTEGER008
  187.             FDPutLn "@X0B", TS